ValueFolder='/sps/isc/rneveu/EtudeIRM/Nature/Results/';
ValueFolderTemp='/sps/isc/rneveu/EtudeIRM/Nature/ResultsJournal/';
ValueFolderTemp2='/sps/isc/rneveu/EtudeIRM/Nature/ResultsEditor/';
load([ValueFolderTemp 'ResultsThirdLevelDistributionOutliers.mat']);
VecDistribution=VecResults;
ValueFolder2='/sps/isc/rneveu/EtudeIRM/Nature/';
load([ValueFolder2 'DonneesNature.mat']);
load([ValueFolder2 'EtudeNature.mat']);
VecEditors1Temp(1,:)=[];
VecResultsEditor1=zeros(2,33);
for n2=1:323
    if n2~=11
        ValueTemp=VecEditors1Temp{n2,11};
        n3=1;
        TestTemp=0;
        while n3<=size(VecJournalTemp,1)&&TestTemp==0
            if strcmpi(VecJournalTemp{n3,1},ValueTemp)==1
                TestTemp=1;
            else
                n3=n3+1;
            end
        end
        if TestTemp==1
            if strcmp(VecEditors1Temp{n2,13},'N')==1
                VecResultsEditor1(1,n3)=VecResultsEditor1(1,n3)+1;
            end
            VecResultsEditor1(2,n3)=VecResultsEditor1(2,n3)+1;
        end
    end
end
VecResults=1-VecResultsEditor1(1,:)./VecResultsEditor1(2,:);
ValueTemp=find(VecResults>=0.5);